home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / reversit.src < prev    next >
Text File  |  1991-10-19  |  666b  |  34 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ REVERSIT, by Paul Lancaster
  3. DIR
  4.   REVERSIT
  5.     \<< CLEAR 0 0 'Y' STO 9 'X' STO "123456789" DUP 'Z' STO 1 10
  6.       START RAND 9 * CEIL 'X' STO REV1
  7.       NEXT { REVGO REVERSIT } MENU
  8.     \>>
  9.   REVGO
  10.     \<< 'X' STO SWAP DROP REV1 Y 1 + 'Y' STO DUP DUP 'W' STO
  11.       IF Z ==
  12.       THEN 500 .5 BEEP Y
  13.       ELSE Y SWAP 1 9
  14.         FOR N W N N SUB STR\-> 200 * .2 BEEP
  15.         NEXT
  16.       END
  17.     \>>
  18.   REV1
  19.     \<<
  20.       IF X 1 ==
  21.       THEN 'X' 1 STO+
  22.       END DUP X 1
  23.       FOR N DUP N N SUB SWAP -1
  24.       STEP DROP 1 X 1 -
  25.       START +
  26.       NEXT SWAP X 1 + 9 SUB +
  27.     \>>
  28.   W 0
  29.   X 0
  30.   Y 0
  31.   Z 0
  32.   CST 0
  33. END
  34.